Top 10k strings from Matrix Operations (1983)(University Software).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TAP] (TOSEC-v2007-01-01) /

Back to the directory listing

   3 ;"matrix 2:":
   2 ;"matrix:":
   2 ;"matrix 1:":
   2 ;"cannot be inverted":
   2 ("matrix elements:"," row ";(i);",column ";(j);": ");x:
   1 w=a(k,m)+a(i,m):
   1 t$="value of scalar: ":
   1 s=a(i,k)/a(k,k):
   1 e=e+a(i,k)*b(k,j):
   1 e=a(i,j)-b(i,j)
   1 e=a(i,j)+b(i,j)
   1 e=a(i,j)*n
   1 b(i,j)=a(i,r+j)
   1 b(i,j)=a(i,d+j)
   1 a(k,k)<1e-8
   1 a(k,j)=a(k,j)/z:
   1 a(i,r+j)=0
   1 a(i,r+i)=1
   1 a(i,k)>1e-8
   1 a(i,j)=a(i,r+j)
   1 a(i,j)=a(i,j)-s*a(k,j):
   1 a(i,j)=a(i,d+j)
   1 a(i,d+j)=e
   1 MATRIX OPERATIONS
   1 M OPER    
   1 ;"singular matrix":
   1 ;"no of rows must be equal to     no of columns":
   1 ;"no of columns of matrix 1 must  be equal to no of rows of mat.2":
   1 ;"matrix X scalar:"
   1 ;"matrix 1:"
   1 ;"matrix 1 and matrix 2 dimensionsmust be equal"
   1 ;"matrix 1 X matrix 2:"
   1 ;"matrix 1 - matrix 2:"
   1 ;"matrix 1 + matrix 2:"
   1 ;"inverse:":
   1 ;"enter sm for scalar mult."
   1 ;"enter s for subtraction"
   1 ;"enter new dimensions":
   1 ;"enter m for multiplication"
   1 ;"enter i for inversion"
   1 ;"enter a for addition"
   1 ** reports for inappropiate matrix dimensions **
   1 (b(i,j)*1e6
   1 (a(i,r+j)*1e6
   1 (a(i,j)*1e6
   1 ("matrix dimensions:","     (row,column): ");r(1
   1 ("matrix ";(m);" dimensions:","       (row,column): ");r(m);",";c(m)
   1 ("choose no of new matrix(1/2): ");m
   1 "operations"
   1 "Enter z to copy,c for another   operation with resultant matrix,r for another problem,s to stop";
   1  Copyright 1983    University Software **